home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Tools - Objects / MacApp / Unsupported Samples / CRC Cards / Source / UCRCCards.p < prev    next >
Encoding:
Text File  |  1990-07-11  |  4.5 KB  |  198 lines  |  [TEXT/MPS ]
  1. Unit UCRCCards;
  2.  
  3. INTERFACE
  4.  
  5. USES
  6.     UMacApp,
  7.     ToolUtils,
  8.     Resources,
  9.     Packages,
  10.     UPrinting,
  11.     UTEView,
  12.     UDialog,
  13.     UGridView,
  14.     UItem,
  15.     UCard,
  16.     UDesignDocument,
  17.     UMyViews,
  18.     UMyCommands,
  19.     UTextHandler;
  20.     
  21. CONST
  22.     kBlankLine = '-';  {This causes a seperator line in a menu}
  23.     kClassPrefix = 'T';
  24.     kFieldPrefix = 'f';
  25.     kGetAccessorPrefix = 'Get';
  26.     kSetAccessorPrefix = 'Set';
  27.     kFileType = 'desg';
  28.     kSignature = 'crcc';
  29.     kMPWFileType = 'TEXT';
  30.     kMPWSignature = 'MPS ';
  31.     kStringSize = SIZEOF(str255);
  32.     kNoCards = 0;
  33.     kCardNotFound = 0;
  34.     kNoItems = 0;
  35.     kDesignWindowID = 1000;
  36.         kDesignViewResID = 'dsgn';
  37.     kEditViewID = 1001;
  38.         kFieldViewResID = 'feld';
  39.         kMethodViewResID = 'meth';
  40.         kCollaboratorViewResID = 'coll';
  41.     kSimpleViewID = 1002;
  42.         kSimpleViewResID = 'scrd';
  43.         kClassNameViewID = 'ctxt';
  44.         kSuperNameViewID = 'stxt';
  45.         kIconViewID = 'icon';
  46.     kMPWTEViewID = 1003;
  47.         kMPWTEViewIdentifier = 'TEVW';
  48.     kFieldEditID = 1005;
  49.         kEditItemView = 'Iedt';
  50.         kNameField = 'Inme';
  51.         kTypeField = 'Ityp';
  52.     kCollaboratorEditID = 1005;    
  53.     kBeginning = 0;
  54.     kEnd = maxInt;
  55.     kOneClick = 1;
  56.     kTwoClicks = 2;
  57.     
  58.     {editView text list view identifiers}
  59.     kEditViewNameID = 'card';
  60.     kFieldListID = 'feld';
  61.     kMethodListID = 'meth';
  62.     kCollaboratorListID = 'coll';
  63.     
  64.     {editView items identifiers}
  65.     kClassEntryID = 'ctxt';
  66.     kSuperClassEntryID = 'stxt';
  67.     kFieldEntryID = 'ftxt';
  68.     kFieldTypeEntryID = 'ttxt';
  69.     kMethodEntryID = 'mtxt';
  70.     kCollaboratorEntryID = 'ltxt';
  71.     
  72.     {editView button identifiers}
  73.     kFieldButtonID = 'fbtn';
  74.     kMethodButtonID = 'mbtn';
  75.     kCollaboratorButtonID = 'cbtn';
  76.     
  77.     {miscellaneous other views}
  78.     kTypeClusterID = 'clus';
  79.     kItemTypeMenuID = 'tmnu';
  80.     kSuperClassTypeMenuID = 'smnu';
  81.     kCollaboratorsMenuID = 'cmnu';
  82.     kOVERRIDEBoxID = 'over';
  83.     kFieldEntryNameID = 'tnme';
  84.     kFieldTypeEntryNameID = 'ttyp';
  85.     
  86.     {edit mode constants for the edit cluster}
  87.     kFieldsMode = 1;
  88.     kMethodsMode  = 2;
  89.     kCollaboratorsMode = 3;
  90.     
  91.     {commands}
  92.     cNewCardCmd = 1001;
  93.     cDeleteCardCmd = 1002;
  94.     cEditCardCmd = 1003;
  95.     cWriteCodeCmd = 1004;
  96.     cDelFieldCmd = 1005;
  97.     cDelMethodCmd = 1006;
  98.     cDelCollaboratorCmd = 1007;
  99.     cAddFieldCmd = 1008;
  100.     cAddMethodCmd = 1009;
  101.     cAddCollaboratorCmd = 1010;
  102.     cMoveViewCmd = 1011;
  103.     cChangeNameCmd = 1012;
  104.     cChangeSuperClassCmd = 1013;
  105.     cInPascalCmd = 1014;
  106.     cInCPPCmd = 1015;
  107.     cChangeFieldCmd = 1016;
  108.     cChangeMethodCmd = 1017;
  109.     cChangeCollaboratorCmd = 1018;
  110.     
  111.     kNotFound = 0;
  112.     kOneItem = 1;
  113.     kNoItemSelected = 0;
  114.     kNoChanges = 0;
  115.     kPrintInfoRsrcType    = 'PRNT';
  116.     kPrintInfoRsrcID    = 1;
  117.     
  118.     kEmptyString = '';
  119.     kUseImmediateSuperView = TRUE;
  120.     kStartingClass = 'TClassName';
  121.     kStartingSuperClass = 'TObject';
  122.     kEndOfLineID = 1010;
  123.     kHeadingID = 1020;
  124.     kTypeDefID = 1030;
  125.     kFieldsInterfaceID = 1040;
  126.     kMethodsInterfaceID = 1050;
  127.     kCollaboratorsInterfaceID = 1060;
  128.     kEndOfTypeDefID = 1070;
  129.     kStdMethID = 1080;
  130.     kOverrideMethID = 1090;
  131.     kGetAccessorID = 1100;
  132.     kSetAccessorID = 1110;
  133.     kImplementationID = 1120;
  134.     kUnitEndStr = 1130;
  135.     kImplementationNoteID = 1140;
  136.     kImplIncFilesID = 1145;
  137.     kGetAccessorImplementationID = 1150;
  138.     kStdMethodImplementationID = 1160;
  139.     kFieldsMethodDecStr = 1170;
  140.     kFieldsMethodImpStr1 = 1180;
  141.     kFieldsMethodImpStr2 = 1185;
  142.     kFieldsMethodImpStr3 = 1190;
  143.     kFieldsMethodCodeLineStr = 1200;
  144.     kIncludeStatementID = 1210;
  145.     kFieldItemDeclarationStrID = 1220;
  146.     kCollaboratordeclarationStrID = 1230;
  147.     kImplementationFileNameID    = 1240;
  148.     kInterfaceFileNameID = 1250;
  149.     kLFAndIndentStr = 1260;
  150.     kSetAccessorImplementationID = 1270;
  151.     kFieldItemImplDeclarationStrID = 1280;
  152.     kStdImplMethID = 1290;
  153.     kOverrideImplMethID = 1300;
  154.     kImplFieldsMethodDecStr = 1310;
  155.     kImplGetAccessorID = 1320;
  156.     kImplSetAccessorID = 1330;
  157.     kImplCollaboratorDeclarationStrID = 1340;
  158.     kInlineGetAccessorID = 1350;
  159.     kInlineSetAccessorID = 1360;
  160.     kFwdClassDeclID = 1370;
  161.     
  162.     kDontExtendSel = FALSE;
  163.     kHiLite = TRUE;
  164.     kDim = TRUE;
  165.     kDontSelect = FALSE;
  166.     kImediateSuperView = TRUE;
  167.     kIsSelected = TRUE;
  168.     kConstrainDrags = TRUE;
  169.     kDragging = TRUE;
  170.     kOVERRIDE = TRUE;
  171.     kUseMinimalMargins = TRUE;
  172.  
  173.     
  174. TYPE
  175.     TMyList = OBJECT(TList)
  176.         FUNCTION TMyList.ReturnBytes: LONGINT;
  177.     END;
  178.     
  179.     TMyMethodList = OBJECT(TMyList)
  180.         FUNCTION TMyMethodList.FindFieldsMethod: TMethodItem;
  181.         PROCEDURE TMyMethodList.InsertLast(item: TObject); OVERRIDE;
  182.         FUNCTION TMyMethodList.GetNumRealMethods: integer;
  183.     END;
  184.     
  185.     TCRCCardsApplication = OBJECT(TApplication)
  186.         PROCEDURE TCRCCardsApplication.ICRCCardsApplication(designFileType: OSType);
  187.         FUNCTION TCRCCardsApplication.DoMakeDocument(itsCmdNumber: CmdNumber): TDocument; OVERRIDE;
  188.     END;
  189.  
  190. VAR
  191.     gEndOfLineStr: str255;
  192.     gOneTabStr: str255;
  193.     
  194. IMPLEMENTATION
  195.  
  196. {$I UCRCCards.inc1.p}            (* the list, view, text list view and application stuff *)
  197.  
  198. END.